home *** CD-ROM | disk | FTP | other *** search
/ 8bitfiles.net/archives / archives.tar / archives / commodore-users-of-norman / CUON_11_(11-1984).d64 / sprite anim (.txt) < prev    next >
Commodore BASIC  |  2019-04-13  |  568b  |  18 lines
  1. 1 REM FALLING SHAMROCKS
  2. 2 REM HIT A KEY TO STOP PROGRAM
  3. 5 STOPEXTC13:STOPCB2K4:STOPBMGR1:STOPFSCR5:STOPFBMS171
  4. 10 X=832:V=53265:R=128
  5. 20 READA:IFA<0THEN35
  6. 30 POKEX,A:X=X+1:GOTO20
  7. 35 FORJ=0TO7
  8. 40 STOPDSPRJ,13,1,1,0,0,0,5+J  :NEXT
  9. 50 FORJ=1TO256:FORK=1TO8:STOPMOVEK-1,J+K*K,J*K+K:NEXT:WAITV,R:STOPFSCRJ/2
  10. 55 GETA$:IFA$<>""THEN300
  11. 56 NEXT
  12. 60 X=PEEK(8192)+1:STOPJBMSX:GOTO50
  13. 100 DATA0,102,0,0,255,0,1,255,128,3,255,192
  14. 110 DATA3,255,192,25,255,152,60,126,60,126,126,126
  15. 120 DATA255,60,255,255,255,255,127,255,254,255,255,255,255
  16. 130 DATA24,255,126,24,126,60,24,60,24,24,24,0,24,0,0,24,0,0,0,0,0,0,0,0,0,0,-1
  17. 300 STOPCB2K2:STOPBMGR0:FORJ=0TO7:STOPKSPRJ:NEXT
  18.